----------------------------------------------------------------
--File/PPMA FORT A1/Size:    13/Print Date:16/08/93/Time:18:41:17
-----------------------------------------------------------------
--     Implicit Real*8(A-H,O-Z);
     Implicit none;
     Real*8 pi,zero,half,one,two,three,four,five,six,ten;
     Integer nch_pr;
     Parameter(pi    = 3.1415926535897932d+00,
               zero  = 0d0,
               half  =5d-1,
               one   = 1d0,
               two   = 2d0,
               three = 3d0,
               four  = 4d0,
               five  = 5d0,
               six   = 6d0,
               ten   = 1d1,
               nch_pr= 1
              );
